home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / ED / PCKEY.ZIP / HOMEKEYS.SCR < prev    next >
Encoding:
Text File  |  1993-05-25  |  10.3 KB  |  653 lines

  1. :homekeys.scr
  2.  
  3. if memory 1 = 2 goto cont_hkl
  4. memory 1 = 2
  5. memory 2 = 0
  6.  
  7. :cont_hkl
  8. if memory 2 > 0 goto repeat_lesson2
  9.  
  10. goto start_lesson
  11. :repeat_lesson
  12. bkey r
  13. bkey ' 
  14.  
  15. :start_lesson
  16. clear 15
  17. start 2
  18.  
  19. cursor 23 19
  20. print 'Press any key to start lesson 1.
  21. wait -
  22. clear 19 19
  23.  
  24. cursor 0 15
  25. print 'We will concentrate on the HOME keys A S D F and J K L ; and the SPACE BAR.
  26.  
  27. clear 18
  28. CURSOR 19 18
  29. print 'ffff jjjj ffff jjjj ffjj ffjj fjfj fjfj
  30. cursor 0 21
  31. print 'Your two index fingers should be resting on the F and J keys.
  32. fkey a
  33. fkey s
  34. fkey d
  35. hkey f
  36. hkey j
  37. fkey k
  38. fkey l
  39. fkey ;
  40. script - waitspc
  41. bkey a
  42. bkey s
  43. bkey d
  44. bkey f
  45. bkey g
  46. bkey h
  47. bkey j
  48. bkey k
  49. bkey l
  50. bkey ;
  51. script - dotest1
  52.  
  53. cursor 19 18
  54. print 'jjjj ffff jjjj ffff jjff jjff jfjf jfjf
  55. script - dotest1
  56.  
  57. cursor 19 18
  58. print 'ffjj jjff jjff ffjj jfjf fjfj jffj fjjf
  59. script - dotest1
  60.  
  61. script - progress
  62.  
  63. clear 18
  64. CURSOR 19 18
  65. print 'dddd kkkk dddd kkkk ddkk ddkk dkdk dkdk
  66. cursor 0 21
  67. print 'Your two middle fingers should be resting on the d and k keys.
  68. fkey a
  69. fkey s
  70. hkey d
  71. fkey f
  72. fkey j
  73. hkey k
  74. fkey l
  75. fkey ;
  76. script - waitspc
  77. bkey a
  78. bkey s
  79. bkey d
  80. bkey f
  81. bkey j
  82. bkey k
  83. bkey l
  84. bkey ;
  85. script - dotest1
  86.  
  87. cursor 19 18
  88. print 'kkkk dddd kkkk dddd kkdd kkdd kdkd kdkd
  89. script - dotest1
  90.  
  91. cursor 19 18
  92. print 'ddkk kkdd kkdd ddkk kdkd dkdk kddk dkkd
  93. script - dotest1
  94.  
  95. script - progress
  96.  
  97. clear 18
  98. CURSOR 19 18
  99. print 'ssss llll ssss llll ssll ssll slsl slsl
  100. cursor 0 21
  101. print 'Your two ring fingers should be resting on the s and l keys.
  102. fkey a
  103. hkey s
  104. fkey d
  105. fkey f
  106. fkey j
  107. fkey k
  108. hkey l
  109. fkey ;
  110. script - waitspc
  111. bkey a
  112. bkey s
  113. bkey d
  114. bkey f
  115. bkey j
  116. bkey k
  117. bkey l
  118. bkey ;
  119. script - dotest1
  120.  
  121. cursor 19 18
  122. print 'llll ssss llll ssss llss llss lsls lsls
  123. script - dotest1
  124.  
  125. cursor 19 18
  126. print 'ssll llss llss ssll lsls slsl lssl slls
  127. script - dotest1
  128.  
  129. script - progress
  130.  
  131. clear 18
  132. CURSOR 19 18
  133. print 'aaaa ;;;; aaaa ;;;; aa;; aa;; a;a; a;a;
  134. cursor 0 21
  135. print 'Your two little fingers should be resting on the a and ; keys.
  136. hkey a
  137. fkey s
  138. fkey d
  139. fkey f
  140. fkey j
  141. fkey k
  142. fkey l
  143. hkey ;
  144. script - waitspc
  145. bkey a
  146. bkey s
  147. bkey d
  148. bkey f
  149. bkey j
  150. bkey k
  151. bkey l
  152. bkey ;
  153. script - dotest1
  154.  
  155. cursor 19 18
  156. print ';;;; aaaa ;;;; aaaa ;;aa ;;aa ;a;a ;a;a
  157. script - dotest1
  158.  
  159. cursor 19 18
  160. print 'aa;; ;;aa ;;aa aa;; ;a;a a;a; ;aa; a;;a
  161. script - dotest1
  162.  
  163. script - progress
  164.  
  165. clear 18
  166. CURSOR 19 18
  167. print 'ffff jjjj dddd kkkk ffjj ddkk ffjj ddkk
  168. cursor 0 21
  169. print 'Now we will try and use the keys D F and J K
  170. fkey a
  171. fkey s
  172. hkey d
  173. hkey f
  174. hkey j
  175. hkey k
  176. fkey l
  177. fkey ;
  178. script - waitspc
  179. bkey a
  180. bkey s
  181. bkey d
  182. bkey f
  183. bkey j
  184. bkey k
  185. bkey l
  186. bkey ;
  187. script - dotest1
  188.  
  189. cursor 19 18
  190. print 'ffjj jjff ddkk kkdd fjfj jfjf dkdk kdkd
  191. script - dotest1
  192.  
  193. cursor 19 18
  194. print 'ddff jjkk kkjj ffdd dfjk kjfd dkfj jfkd
  195. script - dotest1
  196.  
  197. script - progress
  198.  
  199. clear 18
  200. CURSOR 9 18
  201. print 'ffff jjjj dddd kkkk ssss llll ffjj ddkk ssll ffjj ddkk ssll
  202. cursor 0 21
  203. print 'Now we will try and use the keys S D F and J K L
  204. fkey a
  205. hkey s
  206. hkey d
  207. hkey f
  208. hkey j
  209. hkey k
  210. hkey l
  211. fkey ;
  212. script - waitspc
  213. bkey a
  214. bkey s
  215. bkey d
  216. bkey f
  217. bkey j
  218. bkey k
  219. bkey l
  220. bkey ;
  221. script - dotest2
  222.  
  223. cursor 9 18
  224. print 'ffjj jjff ddkk kkdd ssll llss fjfj jfjf dkdk kdkd slsl lsls
  225. script - dotest2
  226.  
  227. cursor 9 18
  228. print 'ssdd ddff jjkk kkll ffdd ddss sfdf ljkj fsds jlkl fjkl jfds
  229. script - dotest2
  230.  
  231. script - progress
  232.  
  233. clear 18
  234. CURSOR 9 18
  235. print 'ffff jjjj dddd kkkk ssss llll aaaa ;;;; ffjj ddkk ssll aa;;
  236. cursor 0 21
  237. print 'Now we will try and use all the HOME keys A S D F and J K L ;
  238. hkey a
  239. hkey s
  240. hkey d
  241. hkey f
  242. hkey j
  243. hkey k
  244. hkey l
  245. hkey ;
  246. script - waitspc
  247. bkey a
  248. bkey s
  249. bkey d
  250. bkey f
  251. bkey j
  252. bkey k
  253. bkey l
  254. bkey ;
  255. script - dotest2
  256.  
  257. cursor 9 18
  258. print ';;;; aaaa llll ssss kkkk dddd jjjj ffff ;;aa llss kkdd jjff
  259. script - dotest2
  260.  
  261. cursor 9 18
  262. print 'asdf jkl; fdsa jkl; fjdk sla; ajsk dlf; jaks ld;f ajdl skf;
  263. script - dotest2
  264.  
  265. script - progress
  266.  
  267. clear 18
  268. CURSOR 9 18
  269. print 'a a a a a lads lads lads lads lads lass lass lass lass lass
  270. cursor 0 21
  271. print 'Now we will try and form words out of the keys you have learnt.
  272. hkey a
  273. hkey s
  274. hkey d
  275. hkey f
  276. hkey j
  277. hkey k
  278. hkey l
  279. hkey ;
  280. script - waitspc
  281. bkey a
  282. bkey s
  283. bkey d
  284. bkey f
  285. bkey j
  286. bkey k
  287. bkey l
  288. bkey ;
  289. script - dotest2
  290.  
  291. clear 18 19
  292. cursor 9 18
  293. print 'a lads dad; a lads dad; a lads dad; a lads dad; a lads dads dad
  294. script - dotest2
  295.  
  296. clear 18 19
  297. cursor 9 18
  298. print 'sad sad sad sad; alas alas alas alas; a sad lads dads jaffa
  299. script - dotest2
  300.  
  301. clear 18 19
  302. cursor 9 18
  303. print 'a dads lads flask; a dads lads flask; all dads lads jaffas alas
  304. script - dotest2
  305.  
  306. clear 18 19
  307. cursor 9 18
  308. print 'all flasks all jaffas; a lad asks dad; alas alas a lads sad dad;
  309. script - dotest2
  310.  
  311. script - repeat
  312. if key = R goto repeat_lesson
  313. if key = r goto repeat_lesson
  314.  
  315. memory 2 = 1
  316.  
  317. clear
  318. cursor 10 7
  319. print 'This is the end of lesson 1. It has probably worn you out.
  320. cursor 9 9
  321. print 'PcKey can remember your last lesson as well as your progress.
  322. cursor 8 11
  323. print 'If you want to stop for now and save your progress then press S.
  324. cursor 3 13
  325. print 'If you want to continue press C. ESC will return you to the TUTORIAL MENU.
  326.  
  327. :wait_for_c
  328. wait -
  329. if key = S goto exit
  330. if key = s goto exit
  331. if key ! C if key ! c goto wait_for_c
  332.  
  333. clear
  334. keyboard
  335.  
  336. :repeat_lesson2
  337. if memory 2 > 1 goto exit
  338. start 2
  339. clear 15
  340. cursor 23 19
  341. print 'Press any key to start lesson 2.
  342. wait -
  343. clear 19 19
  344.  
  345. CURSOR 2 16
  346. print 'You have probably noticed the two keys G and H that lie inbetween the F and J
  347. cursor 0 17
  348. print 'keys.
  349.  
  350. hkey f
  351. hkey j
  352. fkey g
  353. fkey h
  354.  
  355. print ' G and H are pressed by your index fingers as well as F and J. You simply
  356. cursor 0 18
  357. print 'move your left index finger from the F key to the G key, press the G key and
  358. cursor 0 19
  359. print 'move your finger back resting over the F key.
  360.  
  361. cursor 2 21
  362. print 'Likewise with the H key, you move your right index finger over from the J key,
  363. cursor 0 22
  364. print 'press H, and return your finger over J.
  365.  
  366. script - waitspc
  367.  
  368. clear 16
  369. cursor 2 16
  370. print 'Try moving your left index finger over the G key, press it and move your
  371. cursor 0 17
  372. print 'finger back over the F key.
  373.  
  374. :wait_for_g
  375. wait -
  376. if key ! G if key ! g goto wait_for_g
  377.  
  378. fkey f
  379. hkey g
  380.  
  381. cursor 2 19
  382. print 'Good. Now press the F key.
  383.  
  384. :wait_for_f
  385. wait -
  386. if key ! F if key ! f goto wait_for_f
  387.  
  388. bkey g
  389. hkey f
  390.  
  391. print ' Good.
  392. script - waitspc
  393.  
  394. clear 15
  395. cursor 0 15
  396. print 'Now we will try a short test using the keys A S D F and G.
  397.  
  398. clear 18
  399. CURSOR 19 18
  400. print 'ffff gggg ffff gggg ffgg ffgg fgfg fgfg
  401. cursor 0 21
  402. print 'Remember you use your left index finger to press G.
  403. fkey a
  404. fkey s
  405. fkey d
  406. hkey f
  407. hkey g
  408. bkey h
  409. fkey j
  410. fkey k
  411. fkey l
  412. fkey ;
  413. script - waitspc
  414. bkey a
  415. bkey s
  416. bkey d
  417. bkey f
  418. bkey g
  419. bkey j
  420. bkey k
  421. bkey l
  422. bkey ;
  423. script - dotest1
  424.  
  425. cursor 19 18
  426. print 'gggg ffff gggg ffff ggff ggff gfgf gfgf
  427. script - dotest1
  428.  
  429. cursor 19 18
  430. print 'gggg ffff ggff ffgg gfgf fgfg gffg fggf
  431. script - dotest1
  432.  
  433. clear 18
  434. CURSOR 19 18
  435. print 'dddd gggg ffff gggg dddd ffff gggg dddd
  436. cursor 0 21
  437. print 'Remember, after pressing the G key, your left index finger returns resting over
  438. cursor 0 22
  439. print 'the F key.
  440. hkey a
  441. hkey s
  442. hkey d
  443. hkey f
  444. hkey g
  445. fkey j
  446. fkey k
  447. fkey l
  448. fkey ;
  449. script - waitspc
  450. bkey a
  451. bkey s
  452. bkey d
  453. bkey f
  454. bkey g
  455. bkey j
  456. bkey k
  457. bkey l
  458. bkey ;
  459. script - dotest1
  460.  
  461. cursor 19 18
  462. print 'gggg dddd ffff ssss gggg aaaa ffff aagg
  463. script - dotest1
  464.  
  465. cursor 19 18
  466. print 'ffdd ggss aaff ssgg fdgs gadf gfgd sgfa
  467. script - dotest1
  468.  
  469. clear 15
  470. cursor 2 16
  471. print 'Try moving your right index finger over the H key, press it and move your
  472. cursor 0 17
  473. print 'finger back over the J key.
  474.  
  475. hkey j
  476. fkey h
  477.  
  478. :wait_for_h
  479. wait -
  480. if key ! H if key ! h goto wait_for_h
  481.  
  482. fkey j
  483. hkey h
  484.  
  485. cursor 2 19
  486. print 'Good. Now press the J key.
  487.  
  488. :wait_for_j
  489. wait -
  490. if key ! J if key ! j goto wait_for_j
  491.  
  492. bkey h
  493. hkey j
  494.  
  495. print ' Good.
  496. script - waitspc
  497.  
  498. clear 15
  499. cursor 0 15
  500. print 'Now we will try a short test using the keys H J K L and ;
  501.  
  502. clear 18
  503. CURSOR 19 18
  504. print 'jjjj hhhh jjjj hhhh jjhh jjhh jhjh jhjh
  505. cursor 0 21
  506. print 'Remember you use your right index finger to press H.
  507. fkey a
  508. fkey s
  509. fkey d
  510. fkey f
  511. hkey h
  512. hkey j
  513. fkey k
  514. fkey l
  515. fkey ;
  516. script - waitspc
  517. bkey a
  518. bkey s
  519. bkey d
  520. bkey f
  521. bkey h
  522. bkey j
  523. bkey k
  524. bkey l
  525. bkey ;
  526. script - dotest1
  527.  
  528. cursor 19 18
  529. print 'hhhh jjjj hhhh jjjj hhjj hhjj hjhj hjhj
  530. script - dotest1
  531.  
  532. cursor 19 18
  533. print 'jjhh hhjj hhjj jjhh hjhj jhjh hjjh jhhj
  534. script - dotest1
  535.  
  536. clear 18
  537. CURSOR 19 18
  538. print 'kkkk hhhh jjjj hhhh kkkk jjjj hhhh kkkk
  539. cursor 0 21
  540. print 'Remember, after pressing the H key, your right index finger returns resting
  541. cursor 0 22
  542. print 'over the J key.
  543. fkey a
  544. fkey s
  545. fkey d
  546. fkey f
  547. hkey h
  548. hkey j
  549. hkey k
  550. hkey l
  551. hkey ;
  552. script - waitspc
  553. bkey a
  554. bkey s
  555. bkey d
  556. bkey f
  557. bkey h
  558. bkey j
  559. bkey k
  560. bkey l
  561. bkey ;
  562. script - dotest1
  563.  
  564. cursor 19 18
  565. print 'hhhh kkkk jjjj llll hhhh ;;;; jjjj ;;hh
  566. script - dotest1
  567.  
  568. cursor 19 18
  569. print 'jjkk hhll ;;jj llhh jkhl h;kj hjhk lhj;
  570. script - dotest1
  571.  
  572. script - progress
  573.  
  574. clear 15
  575. cursor 0 15
  576. print 'Now we will try the keys A S D F G and H J K L ;
  577.  
  578. clear 18
  579. CURSOR 19 18
  580. print 'jjjj hhhh jjjj hhhh jjhh jjhh jhjh jhjh
  581. cursor 0 21
  582. print 'Remember when your index fingers are not pressing any key, they rest over
  583. cursor 0 22
  584. print 'F and J.
  585. hkey a
  586. hkey s
  587. hkey d
  588. hkey f
  589. hkey g
  590. hkey h
  591. hkey j
  592. hkey k
  593. hkey l
  594. hkey ;
  595. script - waitspc
  596. bkey a
  597. bkey s
  598. bkey d
  599. bkey f
  600. bkey g
  601. bkey h
  602. bkey j
  603. bkey k
  604. bkey l
  605. bkey ;
  606. script - dotest1
  607.  
  608. cursor 19 18
  609. print 'hhhh ffff jjjj gggg ffff hhhh jjjj gggg
  610. script - dotest1
  611.  
  612. cursor 19 18
  613. print 'ffhh jjgg hhjj ggff ggdd ffss hhkk jjll
  614. script - dotest1
  615.  
  616. cursor 19 18
  617. print 'aagg ffdd ;;hh jjkk gfds hjkl aa;; ahg;
  618. script - dotest1
  619.  
  620. clear 18 19
  621. cursor 19 18
  622. print 'ash dash flash glad gas shall flag gall
  623. script - dotest1
  624.  
  625. clear 18 19
  626. cursor 9 18
  627. print 'a glad lad has a flash jaffa; a glad dads lads lass has a flask
  628. script - dotest2
  629.  
  630. clear 18 19
  631. cursor 9 18
  632. print 'a glad lads dad has a jaffa; a dads lads lass has a flash flask
  633. script - dotest2
  634.  
  635. script - progress
  636.  
  637. script - repeat
  638. if key = R goto repeat_lesson2
  639. if key = r goto repeat_lesson2
  640.  
  641. memory 2 = 2
  642.  
  643. clear
  644. cursor 51 7
  645. print '2.
  646. script save
  647.  
  648. if key ! C if key ! c goto exit
  649. clear
  650. keyboard
  651.  
  652. :exit
  653.